home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / ultra v6.0 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  12KB  |  229 lines
  1. 1 MD=11761:SP=12937:GP=12999:OC=13069:CC=13072:CR=13305:WW=13426:RP=13459
  2. 2 SO=13898:EZ=13987:ER=14169
  3. 3 S=1:A=0:REM SET SOUND AND ASCII CONVERT DEFAULTS 1=ON - 0=OFF
  4. 4 DN=08:REM SET DEVICE NUMBER 08 TO 11
  5. 5 POKE253,DN:POKE53280,.:POKE53281,.:POKE788,52:DIMA$(112):PRINTCHR$(142):SYSER
  6. 6 A$="":PRINT"[144][147]"
  7. 7 PRINT A$"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  8. 8 [153] A$"(null)    ULTRA SEQ-PRINT    (null)
  9. 9 PRINT A$"[221]      VERSION 6.0      [221]
  10. 10 [153]A$"(null)  R.W. (BOB K7) KOBER  (null)
  11. 11 PRINTA$"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  12. 12 [151]787,60:[151]2,7:[158]OC:[141]14:[158]CC:[151]787,30
  13. 13 [145][171]([194](2025)[178]7)[137]16:[137]25
  14. 14 [129]K[178]1[164]2000:[130]:[142]
  15. 15 M[178][195](A$):[129]I[178]1[164]M[173]2:[153]"":[129]J[178]1[164]K:[153]"";:[130]:[153][166]20[171]I)[200](A$,I)[201](A$,I):[130]:[142]
  16. 16 [129]I[178]1[164]1000:[130]:[129]I[178]1[164]8:[158]59626:[130]:[151]2025,2:K[178]6
  17. 17 A$[178]"DEFTHESE M/L ROUTINES ARE USED ":[141]15:K[178]7
  18. 18 A$[178]"LISTSTR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$ ":[141]211:[141]15:[141]204:K[178]9
  19. 19 A$[178]"OPENREAD/PRINT/SCROLL":[141]211:[141]15:[141]204:K[178]11:A$[178]"PRINTMI'S  DIRECTORY":[141]211
  20. 20 [141]15:[141]204:K[178]13:A$[178]"CLRIT'S CURTAINS":[141]211:[141]15:[141]204:K[178]15
  21. 21 A$[178]"FOR2-COL. READ":[141]211:[141]15:[141]204:K[178]17:A$[178]"CONTSNAP-SHOT":[141]211:[141]15:[141]204
  22. 22 K[178]19:A$[178]"SYSEZDIR":[141]211:[141]15:[141]204:K[178]23:A$[178]"POKEANY KEY TO STARTON":[141]15
  23. 23 [151]198,.:[146]198,1:[151]198,0:[151]150,160:[158]SP:[137]25:[151]150,160:[158]GP:[151]198,.:[146]198,1
  24. 24 [151]198,.
  25. 25 [151]53280,.:[151]53281,.
  26. 26 [158]CC:[151]53272,21:[153]"LOAD"[163]8)"STOP(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  27. 27 [153][163]8)"(null)      MAIN MENU      (null)":[153][163]8)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  28. 28 [129]I[178]1[164]300:[130]:[151]2,5:[151]878,20:[158]OC
  29. 29 [139]BOB[167][151]150,168:[158]GP:[137]48
  30. 30 [153][163]43)"USE      EMBEDDED <CR>      IGNORE"
  31. 31 [153][163]2)"DEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  32. 32 [153][163]3)"SYSSTEP  (null)WAITDEF                         SYSFORSTEP  (null)LISTWAIT"
  33. 33 [153][163]3)"SYS F1 WAITDEF  SEND OUTPUT TO SCREEN  FOR F2 WAIT"
  34. 34 [153][163]3)"SYS(null)  WAITSTEPDEF                        SYS FOR(null)  WAITSTEP"
  35. 35 [153][163]42)"CONTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  36. 36 [153][163]3)"VERIFYSTEP  (null)WAIT                         CLRSTEP  (null)"
  37. 37 [153][163]3)"VERIFY F3 WAIT  CONT40 COLUMNS TO PRINTER  CLR F4 WAIT"
  38. 38 [153][163]3)"VERIFY(null)  WAITSTEP                         CLR(null)  WAITSTEP"
  39. 39 [153][163]42)"PRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  40. 40 [153][163]3)"PRINT#STEP  (null)WAIT                         DEFSTEP  (null)"
  41. 41 [153][163]3)"PRINT# F5 WAIT PRINT 80 COLUMNS TO PRINTER  DEF F6 WAIT"
  42. 42 [153][163]3)"PRINT#(null)  WAITSTEP                         DEF(null)  WAITSTEP"
  43. 43 [153][163]42)"CLRTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  44. 44 [153][163]3)"STEP  (null)WAIT                         STEP  (null)"
  45. 45 [153][163]3)" F7 WAITCLR DISK HOUSEKEEPING  FORQUIT  F8 WAIT"
  46. 46 [153][163]3)"(null)  WAITSTEP                         (null)  WAITSTEP"
  47. 47 [139]BO[178]0[167]BOB[178]1:[151]150,168:[158]SP
  48. 48 [151]198,.:[160]15:[159]15,DN,15:[137]206
  49. 49 [161]A$:[145][171](A$[178]"D")[137]225
  50. 50 [161]A$:[145][171](A$[178]"D")[137]225
  51. 51 [145][171](A$[178]"A")[137]105:[145][171](A$[178]"S")[137]205:[139]A$[179]"INPUT"[176]A$[177][199](141)[167]50
  52. 52 F$[178][201]([196]([198](A$)[171]132),1):[145]([198](A$)[171]132)[137]53,55,57,126,54,56,58,122,203:[137]50
  53. 53 [141]78:[141]59:[137]73
  54. 54 F$[178]"2":[137]53
  55. 55 F$[178]"3":[151]600,0:[141]79:[141]59:[145]COL[137]72,175
  56. 56 F$[178]"4":[151]600,1:[141]79:[141]59:[145]COL[137]72,175
  57. 57 F$[178]"5":[141]80:[141]59:[137]72
  58. 58 F$[178]"6":[141]80:[141]59:[137]72
  59. 59 [153]"":[151]214,X[171]2:[153]:[153]"PRINT#  ($=DIRECTORY M=MENU)ONON":[151]19,32
  60. 60 [133]"SYS  ENTER SEQ FILENAME PRINT$CMD";FF$:[139]FF$[178]"M"[167]29
  61. 61 [139]FF$[179][177]"$"[175](F$[178]"5"[176]F$[178]"6")[167][141]216
  62. 62 [139]FF$[179][177]"$"[167][158]CC:X1[178]34:[142]
  63. 63 [160]15:[159]15,DN,15,"I":[139]ST[178][171]128[167]E$[178]"DEVICE NOT PRESENT":[141]120:[137]26
  64. 64 [139]FF$[178]"$"[167][132]15,E,E$:[139]E[167][153]"LOAD":[141]120
  65. 65 [139]E[167]26
  66. 66 [158]CC:[153][199](142):[158]MD:[153]:[160]15:[159]15,DN,15
  67. 67 Y[178][194](598)[178]34:[139][168]Y[175](F$[178]"5"[176]F$[178]"6")[167][141]216
  68. 68 [158]CC:[139]Y[167]26
  69. 69 X1[178]0:FF$[178]""
  70. 70 FF[178][194](580[170]X1):[139]FF[178]34[167][142]
  71. 71 FF$[178]FF$[170][199](FF):X1[178]X1[170]1:[137]70
  72. 72 [159]4,4,7:[141]114:[139]QQ[167]26
  73. 73 [159]2,DN,2,FF$:[141]119:[145][171](E[179][177]0)[137]26:[141]88
  74. 74 [160]2:[160]4:[158]65511:[159]15,DN,15:X1[178]0:[141]85
  75. 75 [161]A$:[139]A$[178]"READ"[167]26
  76. 76 [151]214,23:[153]:[153]"        DEF (null)RESS F5 FOR THE (null)ENU WAIT        ON"
  77. 77 [161]A$:[145][171](A$[179][177][199](135))[137]77:[137]26
  78. 78 [129]X[178]6[164]8:[151]781,X:[158]59903:[130]:[142]
  79. 79 [129]X[178]11[164]13:[151]781,X:[158]59903:[130]:[141]82:[142]
  80. 80 [129]X[178]16[164]18:[151]781,X:[158]59903:[130]:[142]
  81. 81 [129]X[178]21[164]23:[151]781,X:[158]59903:[130]:[151]214,21:[153]:[151]19,32:[142]
  82. 82 [151]214,11:[153]:[153][163]6)"1WAIT OR CONT2WAIT COLUMNS?"
  83. 83 [161]COL$:[139]COL$[179]"1"[176]COL$[177]"2"[167]83
  84. 84 COL[178][197](COL$):[142]
  85. 85 [145][171](S[178]0)[137]210:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
  86. 86 [151]54276,23:[129]Y[178]1[164]3:F2[178]8:[151]54273,2:[129]X[178]1[164]5:[151]54287,F2:F2[178]F2[172]1.4:[130]:[130]:[129]W[178]1[164]8
  87. 87 [151]54287,F2:F2[178]F2[172]1.07:[130]:[151]54278,15:[142]
  88. 88 RP$[178]"(null)(null)RIGHT$(null)(null)VAL(null)":[139]F$[178]"1"[176]F$[178]"2"[167]RP$[178]"(null)VALATNSTR$VAL(null) "
  89. 89 [158]CC:[153]"LOAD"[199](14):[153][163]2)"STOP***********************************"
  90. 90 [153][163]2)"*    ASC"F$" (null)(null)(null)(null)ATNCLOSE(null)VAL(null)-ASCRIGHT$(null)VALCLOSE"RP$"    *"
  91. 91 [153][163]2)"***********************************":[151]214,23:[153]
  92. 92 M1$[178]"LEFT$OLD SHIFT TO PAUSE - ":M2$[178]"(null)RESS F6 TO ABORTONON"
  93. 93 [139]F$[178]"1"[176]F$[178]"2"[167]M1$[178]"LEFT$OLD SHIFT TO SCROLL -":M2$[178]" LEFT$IT F5 TO ABORT ONON"
  94. 94 [153]M1$M2$:[129]I[178]1[164]300:[130]:[151]2,12:[151]787,20
  95. 95 [158]OC:[151]214,23:[153]:[153]"DEF"M1$"SYS"M2$""
  96. 96 [145][197](F$)[137]97,98,99,100,101,102
  97. 97 [158]RP,40,0,0,0,0:X1[178]0:[142]
  98. 98 [158]RP,39,1,0,0,0:X1[178]0:[142]
  99. 99 [141]103:[158]RP,40,0,1,0,0:X1[178]0:[142]
  100. 100 [141]103:[158]RP,39,1,1,0,0:X1[178]0:[142]
  101. 101 [141]103:[158]RP,80[171]R[171]M,0,1,M,F:XI[178]0:[142]
  102. 102 [141]103:[158]RP,79[171]R[171]M,1,1,M,0:XI[178]0:[142]
  103. 103 [139]F[167][142]
  104. 104 [129]I[178]1[164]5:[152]4:[130]:[142]
  105. 105 A[178]1[171]A:[151]820,A:[137]208
  106. 106 [145][171](S[178]0)[137]14:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,9:[151]54277,8:[151]54278,252
  107. 107 [151]54276,21:[151]54287,40:[129]Z[178]1[164]T:[129]F1[178]255[164]0[169][171]6:[151]54273,F1:[130]F1:[129]F1[178]0[164]255[169]50
  108. 108 [151]54273,F1:[130]F1:[130]Z:[151]54296,15:[151]54276,20:[129]Z[178]1[164]2500:[130]
  109. 109 [151]54277,128:[151]54278,250:[142]
  110. 110 [145][171](S[178]0)[137]14:[129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,15:[151]54277,8:[151]54278,255
  111. 111 [151]54276,23:[129]Z[178]1[164]1:F1[178]10:[129]Y[178]1[164]6:F2[178]30:[151]54273,F1:[129]X[178]1[164]3:[151]54287,F2
  112. 112 F2[178]F2[173]1.2:[130]X:F1[178]F1[172]1.5:[130]Y:[129]W[178]1[164]30:[151]54273,F1:[151]54287,5:[129]V[178]1[164]5:[130]V
  113. 113 F1[178]F1[173]1.5:[130]W:[130]Z:[151]54278,15:[142]
  114. 114 [160]4:[139]ST[178]0[167][159]4,4,7:QQ[178]0:[142]
  115. 115 [153]"DEF      THE PRINTER IS NOT ON LINE"
  116. 116 [153]"     TURN IT ON, AND PRESS ANY KEY"
  117. 117 [153]"        PRESS F5 FOR THE MENU":[141]110:[146]198,1:[161]A$:[139]A$[178]"READ"[167]QQ[178]1:[142]
  118. 118 [159]4,4,7:[137]114
  119. 119 [132]15,E,E$:[139]E[178]0[167][142]
  120. 120 [153]"LOAD         DISK ERROR ENCOUNTERED":[153][163]20[171][195](E$)[173]2)E$:[141]110
  121. 121 [153]"          ANY KEY TO CONTINUE":[146]198,1:[160]2:[160]4:[142]
  122. 122 K[178]21:A$[178]" SYS     ARE YOU SURE?     ":[141]15:[146]198,1:[161]A$:[145][171](A$[178]"Y")[137]124
  123. 123 [153]"ONONON":[137]29
  124. 124 [153]"DEF";:[153][163]8)" USE ULTRA AGAIN, SOON ":[151]198,.
  125. 125 T[178]3:[141]106:[158]65126
  126. 126 FF[178]0:[153]"LIST":[151]214,8:[153]:[153][163]6)"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  127. 127 [153][163]6)"(null)                         (null)":[153][163]6)"(null) DISK HOUSE KEEPING MENU (null)"
  128. 128 [153][163]6)"(null) USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR (null)":[153][163]6)"(null)                         (null)"
  129. 129 [153][163]6)"(null) 1. SCRATCH A FILE       (null)":[153][163]6)"(null) 2. RE-NAME A FILE       (null)"
  130. 130 [153][163]6)"(null) 3. FORMAT (NEW) A DISK  (null)":[153][163]6)"(null) 4. VIEW DIRECTORY       (null)"
  131. 131 [153][163]6)"(null) 5. RETURN TO MAIN MENU  (null)":[153][163]6)"(null)                         (null)"
  132. 132 [153][163]6)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  133. 133 [151]198,.:[146]198,1:[161]A$:[145][171](A$[178]"READ")[137]29:[139]A$[179]"1"[176]A$[177]"5"[167]133
  134. 134 K[178][197](A$):[145]K[137]136,155,165,213,29
  135. 135 [151]512,32:[142]
  136. 136 [153]"LOADFOR":[151]53280,.:[151]53281,.
  137. 137 [153][163]40)"                                        ";
  138. 138 [153]"    THIS ROUTINE WILL SCRATCH A FILE    ";
  139. 139 [153]"                                        "
  140. 140 [153][163]42)"ENTER 'M' TO RETURN TO THE MENU."
  141. 141 [153][163]42)"ENTER '$' TO LIST THE FILE DIRECTORY."
  142. 142 [153]"SYS----------------------------------------";:[139]FF[178]34[167]145
  143. 143 [151]19,32:[133]"LIST ENTER FILENAME DEF$CMD";FF$:[151]19,.:[153]:[139]FF$[178]"$"[167][141]63:[137]136
  144. 144 [139]FF$[178]"M"[167]26
  145. 145 B$[178]"LISTSCRATCH SEQ FILE DEF"[170][199](34)[170]FF$[170][199](34):FF[178]0:[153]""[163]21[171][195](B$)[173]2)B$
  146. 146 [153][163]90)"SYSARE YOU SURE?? (Y/N)"
  147. 147 [161]K$:[139]K$[178]""[167]147
  148. 148 [139]K$[179][177]"Y"[167]FF$[178]"":[137]136
  149. 149 B$[178]" SCRATCHING  "[170]FF$[170]" ":[153][163]20[171][195](B$)[173]2)B$:[152]15,"S0:"FF$
  150. 150 [132]15,ER,ER$,T,B:[139]K[178]2[176]K[178]3[167][142]
  151. 151 G9$[178][200](ER$,4)[170][201](ER$,10):E9$[178]" "[170]FF$[170]" WAIT "[170]G9$
  152. 152 [139]T[178].[167][153][163]48)"**** FILE NOT FOUND ****":[141]110:[137]136
  153. 153 [139]T[178].[167][129]I[178]1[164]1500:[130]:[137]136
  154. 154 [153][163]60[171][195](E9$)[173]2)E9$:[141]85:[129]I[178]1[164]1000:[130]:[137]26
  155. 155 [129]X[178]20[164]23:[151]781,X:[158]59903:[130]
  156. 156 [153]"":[151]214,20:[153]:[153][163]9)"OLD NAME = ";
  157. 157 [139]FF[178]34[167]FF[178]0:[153]""FF$;:PN$[178]FF$:[151]783,.:[137]160
  158. 158 [151]19,32:[133]"$CMD";PN$:[151]19,.:[153]:[139]PN$[178]"4"[167]29
  159. 159 [139]PN$[178]"$"[167]FF$[178]PN$:[151]150,96:[158]SP:[141]63:[151]150,96:[158]GP:[137]156
  160. 160 [151]214,21:[153]:[153][163]9)"NEW NAME = ";:[151]19,32:[133]" CMD";NN$:[151]19,.:[151]781,21:[158]59903
  161. 161 [151]214,21:[153]:[139]NN$[178]"4"[167]29
  162. 162 CN$[178]" "[170]PN$[170]" WAIT IS "[170]NN$[170]" WAIT":[139][195](CN$)[179]33[167]CN$[178]CN$[170]"      "
  163. 163 [153]"SYS"[163]22[171][195](CN$)[173]2)CN$"ONON":[152]15,"R0:"[170]NN$[170]"="[170]PN$:[141]119:[139]E[167]26
  164. 164 [141]85:[137]26
  165. 165 [153][163]2)"SYS          ---WARNING!!!---          "
  166. 166 [153]"  ALL DATA ON THE DISK TO BE FORMATTED"
  167. 167 [153]"  WILL BE DESTROYED - OK TO CONTINUE?":[151]198,.:[146]198,1:[161]A$:[151]198,.
  168. 168 [139]A$[179][177]"Y"[167]29
  169. 169 [141]81:[133]"CONT   ENTER ID:SYS RK   CMDCMDCMDCMDCMD";ID$
  170. 170 [139][195](ID$)[179][177]2[167]169
  171. 171 [141]81:[153]"CONT   OKAY - FORMATTING TAKES 90 SECONDS"
  172. 172 [152]15,"N:ULTRA SEQ-FILES,"ID$
  173. 173 [141]150:[139]ER[179][177]0[167][141]120
  174. 174 [137]29
  175. 175 [160]4:[159]4,4,7:[141]114:[139]QQ[167]26
  176. 176 L[178]0:[153]"LOADPOKE":[151]53280,11:[151]53281,11:[151]53272,23
  177. 177 [153]""[163]3)"                                  "
  178. 178 [153][163]3)" << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
  179. 179 [153][163]3)"                                  ":[151]787,25:[151]2,15:[158]OC
  180. 180 [139]L[167][153]""[163]43)"LIST << (null)EADING ASCILE RIGHT$NTO AN ATNRRAY >> "
  181. 181 [151]214,23:[153]:[153]"  DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN"
  182. 182 [139]L[167]L[178]0:[137]185
  183. 183 [159]2,DN,2,FF$:[141]119:[139]E[167]25
  184. 184 YY[178]1:[151]CR[171]2,0:[158]CR
  185. 185 [129]K[178]1[164]112:A$(K)[178]"":[130]:U[178]0
  186. 186 [145][171]([194](CR[171]3)[179][177]0)[137]193:[139][194](CR[171]2)[177]80[167][151](CR[171]2),0:[141]135
  187. 187 [129]X[178]0[164][194](CR[171]2):AA$[178][199]([194](512[170]X)):A$(YY)[178]A$(YY)[170]AA$:[139][195](A$(YY))[177]40[167]YY[178]YY[170]1
  188. 188 [130]:[158]SO:[151]214,19:[153]:[153]A$(YY):YY[178]YY[170]1:[145][171]([194](600)[178]0)[141]135:[158]WW
  189. 189 [139][194](653)[178]1[167][151]214,23:[153]:[153]"  DEF(null)VAL(null)VALATN(null)VALPRINT TO LENONTINUE ON":U[178]1
  190. 190 [139][194](653)[178]1[167][145][171]([194](197)[178]6)[137]202:[137]189
  191. 191 [139]U[167][153]"  DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN":U[178]0
  192. 192 [145][171](YY[178]112)[137]195:[153]:[137]186
  193. 193 [129]X[178]0[164][194](CR[171]2)[171]1:AA$[178][199]([194](512[170]X)):A$(YY)[178]A$(YY)[170]AA$:[130]:[158]SO:[151]214,19:[153]
  194. 194 [153]A$(YY):[160]2:[158]65511:[159]4,4,7
  195. 195 [153]""[163]44)"LIST      << STR$ATA TO (null)RINTER >>     ":[129]I[178]1[164]5:[152]4:[130]
  196. 196 [139]YY[173]2[179][177][181](YY[173]2)[167]YY[178]YY[170]1
  197. 197 I1[178]YY[173]2:[129]II[178]1[164]I1:[152]4,A$(II);[163]41[171][195](A$(II)));A$(II[170]I1)
  198. 198 [139][194](653)[178]1[167][151]214,23:[153]:[153]"  DEF(null)VAL(null)VALATN(null)VALPRINT TO LENONTINUE ON":U[178]1
  199. 199 [139][194](653)[178]1[167][145][171]([194](197)[178]6)[137]202:[137]198
  200. 200 [139]U[167][153]"  DEFLEFT$(null)(null)STR$ (null)LEFT$RIGHT$ASC(null)PRINT TO (null)AUSE ---- SYSASC6PRINT TO ATNBORTONONONOPEN":U[178]0
  201. 201 [130]:[129]I[178]1[164]5:[152]4:[130]:[139]YY[177]111[167]YY[178]1::L[178]1:[137]180
  202. 202 T[178]1:[141]106:[160]2:[158]CC:[153]"LOAD":[151]53280,.:[151]53281,.:[158]65511:[159]15,DN,15:BOB[178]0:[137]26
  203. 203 [151]2025,7:[138]
  204. 204 [129]D[178]1[164]1200:[130]:[142]
  205. 205 S[178]1[171]S:[141]211
  206. 206 [153]"SYS SOUND":[139]S[167][153]"  ON "
  207. 207 [139]S[178]0[167][153]"  OFF"
  208. 208 [153]""[163]33)"ONONASCII":[139]A[167][153]""[163]34)"ONON "
  209. 209 [145][171](A[178]1)[137]50:[153]""[163]34)"ONOFF":[137]50
  210. 210 [142]
  211. 211 [145][171](NS[178]1)[137]210:[129]I[178]54272[164]I[170]23:[151]I,.:[130]:SI[178]54272:[151]SI[170]1,106:[151]SI[170]5,12
  212. 212 [151]SI[170]6,15:[151]SI[170]24,15:[151]SI[170]15,30:[151]SI[170]4,21:[142]
  213. 213 [160]15:[159]15,DN,15,"I":[139]ST[178][171]128[167]E$[178]"DEVICE NOT PRESENT":[141]120:[137]25
  214. 214 [158]EZ:[139]ST[179][177]64[167]E$[178]"MISSING OR UNFORMATTED DISK":[141]120:[137]25
  215. 215 [151]214,23:[153]:[153][163]10)"SYS ANY KEY TO CONTINUE ";:[146]198,1:[151]198,.:[137]25
  216. 216 [129]K[178]16[164]18:[151]781,K:[158]59903:[130]:[151]214,16:[153]:[151]19,32
  217. 217 [133]"    LEFT MARGIN:FOR  0   CMDCMDCMDCMD";M$
  218. 218 M[178][197](M$):[139]M[177]40[167]216
  219. 219 [151]214,17:[153]:[133]"    RIGHT MARGIN:FOR 0   CMDCMDCMDCMD";R$
  220. 220 R[178][197](R$):[139]R[177]40[167]219
  221. 221 [139]F$[178]"6"[167][142]
  222. 222 [141]80:[151]214,16:[153]:[133]"OPEN    PREFORMATTED TEXT?SYS N CMDCMD";X$
  223. 223 [139]X$[179][177]"Y"[175]X$[179][177]"N"[167]222
  224. 224 [141]80:F[178][171](X$[178]"Y"):[142]
  225. 225 DN[178]DN[170]1[170]4[172](DN[178]11):[151]253,DN:[153]"":[151]214,21:[153]
  226. 226 [153][163]8)"SYS    DEVICE NO.=        CMDCMDCMDCMDCMDCMDCMDCMD"DN:TM[178]0
  227. 227 [161]A$:TM[178]TM[170]1:[145][171](TM[177]50)[137]29
  228. 228 [145][171](A$[178]"D")[137]225:[145][171](A$[178]"")[137]227:[137]29
  229.